VB读取文本中每行[ ]中的内容

来源：百度知道 编辑：UC知道 时间：2024/06/01 09:08:49
要做歌词显示的
就是歌词那种的文件
[00:16:17]!#%#!@$!@%$&#%#@$

读取[中的时间] 看哪行与text1.text 中时间相符 则text2.text 中显示对应哪行[]后面的东西

楼上方法过于过时
Dim l As String, l1 As String, l2 As String
Using s As New IO.StreamReader(文件路径)
Do
l = s.ReadLine()
l1 = Mid(l, 2, 8)
If l1 = Text1.Text Then
l2 = Mid(l, 11, l.Length - 10)
Text2.Text = l2
Exit Sub
End If
Loop Until s.EndOfStream
End Using
Text2.Text = "找不到匹配时间"

dim a()
Dim TextLine
Open "e:\1.txt" For Input As #1 ' 打开文件。
do while not eof(1)
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
a(i)=textline'存入数组
loop
Close #1 ' 关闭文件。

读入基本上就是上面这个样子

取时间嘛就有MID函数
MID(TEXTLINE,2,8)'从第二位开始取8位